10 F=ABS(PEEK(65533)=255)
12 MO=144
20 IFF=0THENPL=PEEK(43):PH=PEEK(44)
30 IFF=1THENPL=PEEK(45):PH=PEEK(46):(null)0
40 POKE 250,PL:POKE251,PH:POKE252,MO
50 SYS(PH*256+PL+MO+6)